#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
#include <sys/types.h> 
#include <sys/socket.h>
#include <netinet/in.h>
#include <time.h>

void error(const char *msg)			//funcao que trata o erro
{
    perror(msg);
    exit(1);
}

int main(int argc, char *argv[])		//funcao principal
{
     
     //***************** variáveis ************************
	 
     int sockfd, newsockfd, newsockfd2, portno;		//file descriptors e o numero da porta
     socklen_t clilen;					//clilen guarda o tamanho do endereço do cliente
     
     struct sockaddr_in					//estrutura contendo um endereço de internet
			serv_addr, cli_addr;
     int n;								//contem o numero de caracteres lidos ou escritos
	 int i,k,aux;						//auxiliares
	 
	 //*************** criaçao do socket **************
     sockfd = socket(AF_INET, SOCK_STREAM, 0); 		//sockfd recebera o descriptor do sock criado.
     if (sockfd < 0) 
        error("ERRO ao criar o socket");
     
     bzero( (char *) &serv_addr, sizeof(serv_addr) );	//funcao que zera o buffer serv_addr
     
     //******************************
			portno = 1234;								//numero da porta que o socket usará
     //******************************
     
     serv_addr.sin_family = AF_INET;
     serv_addr.sin_addr.s_addr = INADDR_ANY;
     serv_addr.sin_port = htons(portno);
     
     //*********** bind do socket na porta *****
     if (bind(sockfd, (struct sockaddr *) &serv_addr, sizeof(serv_addr)) < 0) 
              error("ERRO no bind");
     
     //******** listen ********
     listen(sockfd,5);
     clilen = sizeof(cli_addr);
     
     //***************** accept o socket dos clientes *********
     newsockfd = accept(sockfd, (struct sockaddr *) &cli_addr, &clilen);
     if (newsockfd < 0) 
          error("ERRO ao aceitar outra conexao");
     newsockfd2 = accept(sockfd, (struct sockaddr *) &cli_addr, &clilen);
     if (newsockfd2 < 0) 
          error("ERRO ao aceitar outra conexao");
     
     
     //**********************************************
     //********* lendo dos clientes para o buffer *****
     //*********************************************
     clock_t ordstart = clock();
     
     int buffer[250], origbuff[250];		//aloca um buffer de 250 posicoes
     
     bzero(buffer,sizeof(buffer)/4);						//zera o buffer
     bzero(origbuff,sizeof(origbuff)/4);						//zera o buffer
     
     n = read(newsockfd,buffer,sizeof(buffer)/2);		//executa o read dos 125 primeiros valores
     if (n < 0) error("ERRO ao ler do socket");
          
     n = read(newsockfd2,&buffer[sizeof(buffer)/8],sizeof(buffer)/2);		//executa o read dos 125 ultimos valores
     if (n < 0) error("ERRO ao ler do socket");
     
     
     //****** copia do buffer original **
     
     for(i=0;i<sizeof(buffer)/4;i++){
		origbuff[i] = buffer[i];
	 }
	 
	 printf("\n\nVetor recebido: [");
     for(i=0;i<sizeof(origbuff)/8;i++){
		 printf(" %d",origbuff[i]);
	 }
	 printf(" ]\t+\t[");
	 for(i=sizeof(origbuff)/8;i<sizeof(origbuff)/4;i++){
		 printf(" %d",origbuff[i]);
	 }
	 printf(" ]\n\n");
     
     
     //***** ordenaçao do vetor recebido **********
     
	 for(i=0;i<sizeof(buffer)/4;i++){	//para todos os valores
			for(k=0;k<sizeof(buffer)/4;k++){		//percorrer todo o vetor
				if(buffer[i]<buffer[k]){	//se o valor i for menor que o valor k
					aux = buffer[i];		//troca os dois valores
					buffer[i] = buffer[k];
					buffer[k] = aux;
				}
			}
	 }
	 clock_t ordend = clock();
     
     double tempo_em_segs = (double)(ordend - ordstart)/CLOCKS_PER_SEC;
     
     printf("\n\nVetor ordenado: [");
     for(i=0;i<sizeof(buffer)/4;i++){		//para todos os valores
		 printf(" %d",buffer[i]);			//imprimir o buffer
	 }
	 printf(" ]\n");
	 printf("Tempo decorrido: %.10f segundos.\n\n",tempo_em_segs);
     
     
     //*************************************************
     //******** esecrevendo para os clientes *****
     //***********************************************
     
     n = write(newsockfd,buffer,(sizeof(buffer)));
     if (n < 0) error("ERRO ao escrever no socket");
     
     n = write(newsockfd2,buffer,(sizeof(buffer)));
     if (n < 0) error("ERRO ao escrever no socket");
     close(newsockfd);
     close(newsockfd2);
     close(sockfd);
     return 0; 
}
